home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PACKAGES
/
MEDIT.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
3KB
|
44 lines
;;; compiled by jwz@thalidomide on Thu Jul 2 16:37:14 1992
;;; from file /u/jwz/emacs19/lisp/packages/medit.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(require 'mim-mode)
(defconst medit-zap-file (byte-code "└┴ ┬Qç" ["/tmp/" user-login-name ".medit.mud"] 3) "\
File name for data sent to MDL by Medit.")
(defconst medit-buffer "*MEDIT*" "\
Name of buffer in which Medit accumulates data to send to MDL.")
(defconst medit-save-files t "\
If non-nil, Medit offers to save files on return to MDL.")
(fset 'medit-save-define #[nil "è└ ê`┬├!ê─ `#ê bê╞ ╟ê`{!*ç" [beginning-of-DEFINE start forward-mim-object 1 append-to-buffer medit-buffer message nil] 4 "\
Mark the previous or surrounding toplevel object to be sent back to MDL." nil])
(fset 'medit-save-region #[(start end) "└ \n#ê─┼!ç" [append-to-buffer medit-buffer start end message "Current region saved for MDL."] 4 "\
Mark the current region to be sent to back to MDL." "r"])
(fset 'medit-save-buffer #[nil "└ ed#ê┬├!ç" [append-to-buffer medit-buffer message "Current buffer saved for MDL."] 4 "\
Mark the current buffer to be sent back to MDL." nil])
(fset 'medit-zap-define-to-mdl #[nil "└ ê┴ ê┬ ç" [indetarctive medit-save-defun medit-go-to-mdl] 1 "\
Return to MDL with surrounding or previous toplevel MDL object."])
(fset 'medit-zap-region-mdl #[(start end) "└ \n\"ê├ ç" [medit-save-region start end medit-go-to-mdl] 3 "\
Return to MDL with current region." nil])
(fset 'medit-zap-buffer #[nil "└ ê┴ ç" [medit-save-buffer medit-go-to-mdl] 1 "\
Return to MDL with current buffer." nil])
(fset 'medit-goto-mdl #[nil "└ !ë½ùè\nqê├\n!½å─ed#ê╞╟!ê╚ ê) ½â╩ ê╦ )ç" [get-buffer medit-buffer buffer buffer-modified-p write-region medit-zap-file set-buffer-modified-p nil erase-buffer medit-save-files save-some-buffers suspend-emacs] 5 "\
Return from Emacs to superior MDL, sending saved code.
Optionally, offers to save changed files." nil])
(byte-code "└┬!─ ┼╞#ê─ ╟╚#ê─ ╔╩#ê─ ╦╠#ê└ç" [nil medit-mode-map copy-keymap mim-mode-map define-key "z" medit-save-define "" medit-save-buffer "z" medit-goto-mdl "s" medit-zap-buffer] 4)
(defconst medit-mode-hook (byte-code "└┴!¡ü ç" [boundp mim-mode-hook] 2) "\
")
(byte-code "└┬ç" [(lambda nil (medit-mode)) mim-mode-hook nil] 1)
(fset 'medit-mode #[(&optional state) "└ !ê┬├!ê─╞ëç" [use-local-map medit-mode-map run-hooks medit-mode-hook medit-mode major-mode "Medit" mode-name] 2 "\
Major mode for editing text and returning it to a superior MDL.
Like Mim mode, plus these special commands:
\\{medit-mode-map}" nil])
(mim-mode)